samples.performance.[Run Me!] samples.performance.[Run Me!]
«run the benchmark scripts
on runscript (num, description)
BarChart.newWindow (0, description + " Test", " ticks")
on test (language)
local (origticks, adrScript)
adrScript = @suites.samples.performance.[language + num]
origticks = clock.ticks ()
adrScript^ ()
BarChart.addBar (language, clock.ticks () - origticks)
test (AppleScript)
test ("UserTalk")
app.start ("BarChart")
app.enableDialogs (false)
app.closeAllWindows ()
app.bringToFront ()
runscript (3, "Frontier Built-in")
runscript (2, "Subroutine Call")
runscript (1, "Integer Arithmetic")
|
This page was last built on Sat, Aug 16, 1997 at 6:44:32 PM. You can download the current set of sample scripts from our FTP site. Dave |